        PND
        PSX 1
LOOP    PPR variable now equals (X)
        PSX +1
        PGO LOOP
        